/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / makesum.elc.z / makesum.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 31 30 3a 34 33 20 31 |an 14 06|:10:43 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 6d 61 6b 65 73 75 |19.0/lis|p/makesu|
|00000070| 6d 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |m.el.;;;| emacs v|
|00000080| 65 72 73 69 6f 6e 20 31 | 39 2e 33 30 2e 37 30 2e |ersion 1|9.30.70.|
|00000090| 36 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |6..;;; b|ytecomp |
|000000a0| 76 65 72 73 69 6f 6e 20 | 46 53 46 20 32 2e 31 30 |version |FSF 2.10|
|000000b0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000c0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000d0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|000000e0| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|000000f0| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000100| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000110| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000120| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000130| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000140| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000160| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 2e |acs-vers|ion "19.|
|00000180| 32 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |29"))). |   (erro|
|00000190| 72 20 22 60 6d 61 6b 65 | 73 75 6d 2e 65 6c 27 20 |r "`make|sum.el' |
|000001a0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001b0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001c0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 23 40 31 31 36 |later"))|...#@116|
|000001d0| 20 4d 61 6b 65 20 61 20 | 73 75 6d 6d 61 72 79 20 | Make a |summary |
|000001e0| 6f 66 20 63 75 72 72 65 | 6e 74 20 6b 65 79 20 62 |of curre|nt key b|
|000001f0| 69 6e 64 69 6e 67 73 20 | 69 6e 20 74 68 65 20 62 |indings |in the b|
|00000200| 75 66 66 65 72 20 2a 53 | 75 6d 6d 61 72 79 2a 2e |uffer *S|ummary*.|
|00000210| 0a 50 72 65 76 69 6f 75 | 73 20 63 6f 6e 74 65 6e |.Previou|s conten|
|00000220| 74 73 20 6f 66 20 74 68 | 61 74 20 62 75 66 66 65 |ts of th|at buffe|
|00000230| 72 20 61 72 65 20 6b 69 | 6c 6c 65 64 20 66 69 72 |r are ki|lled fir|
|00000240| 73 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |st...(de|falias '|
|00000250| 6d 61 6b 65 2d 63 6f 6d | 6d 61 6e 64 2d 73 75 6d |make-com|mand-sum|
|00000260| 6d 61 72 79 20 23 5b 6e | 69 6c 20 22 c0 c1 21 88 |mary #[n|il "..!.|
|00000270| c2 8b 88 c3 90 8a 5c 66 | 1d 0e 06 71 88 c7 20 88 |......\f|...q.. .|
|00000280| c8 c9 21 88 65 62 88 60 | ca 79 88 60 7c 88 cb cc |..!.eb.`|.y.`|...|
|00000290| cd ce 23 83 30 00 cf d0 | 21 88 82 21 00 65 62 88 |..#.0...|!..!.eb.|
|000002a0| cb d1 cd ce 23 83 42 00 | cf d2 21 88 82 33 00 65 |....#.B.|..!..3.e|
|000002b0| 62 88 cb d3 cd ce 23 83 | 54 00 cf d4 21 88 82 45 |b.....#.|T...!..E|
|000002c0| 00 65 62 88 cb d5 cd ce | 23 83 66 00 cf d6 21 88 |.eb.....|#.f...!.|
|000002d0| 82 57 00 65 62 88 cb d7 | cd ce 23 83 78 00 cf d8 |.W.eb...|..#.x...|
|000002e0| 21 88 82 69 00 65 62 88 | d9 da cd ce 23 83 9e 00 |!..i.eb.|....#...|
|000002f0| db 75 88 dc 0d dd b1 03 | 88 cb de cd ce 23 83 9e |.u......|.....#..|
|00000300| 00 60 db 79 88 60 7c 88 | 82 8c 00 65 62 88 df e0 |.`.y.`|.|...eb...|
|00000310| 20 e1 e2 4f e3 b1 03 88 | 60 e4 79 88 60 7c 88 ca | ..O....|`.y.`|..|
|00000320| 79 88 6d 84 d4 00 60 1e | 25 d9 e6 cd ce 23 84 c7 |y.m...`.|%....#..|
|00000330| 00 64 62 88 e7 0e 25 60 | 5c 22 88 ca 79 88 29 82 |.db...%`|\"..y.).|
|00000340| b5 00 65 62 2a 91 88 c0 | e8 21 87 22 20 5b 6d 65 |..eb*...|.!." [me|
|00000350| 73 73 61 67 65 20 22 4d | 61 6b 69 6e 67 20 63 6f |ssage "M|aking co|
|00000360| 6d 6d 61 6e 64 20 73 75 | 6d 6d 61 72 79 2e 2e 2e |mmand su|mmary...|
|00000370| 22 20 28 28 64 65 73 63 | 72 69 62 65 2d 62 69 6e |" ((desc|ribe-bin|
|00000380| 64 69 6e 67 73 29 29 20 | 22 2a 53 75 6d 6d 61 72 |dings)) |"*Summar|
|00000390| 79 2a 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 63 75 |y*" mode|-name cu|
|000003a0| 72 2d 6d 6f 64 65 20 73 | 74 61 6e 64 61 72 64 2d |r-mode s|tandard-|
|000003b0| 6f 75 74 70 75 74 20 65 | 72 61 73 65 2d 62 75 66 |output e|rase-buf|
|000003c0| 66 65 72 20 69 6e 73 65 | 72 74 2d 62 75 66 66 65 |fer inse|rt-buffe|
|000003d0| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 22 2a 48 65 |r-substr|ing "*He|
|000003e0| 6c 70 2a 22 20 31 20 73 | 65 61 72 63 68 2d 66 6f |lp*" 1 s|earch-fo|
|000003f0| 72 77 61 72 64 20 22 20 | 20 20 20 20 20 20 20 20 |rward " |        |
|00000400| 22 20 6e 69 6c 20 74 20 | 72 65 70 6c 61 63 65 2d |" nil t |replace-|
|00000410| 6d 61 74 63 68 20 22 20 | 20 22 20 22 2d 40 20 22 |match " | " "-@ "|
|00000420| 20 22 2d 53 50 22 20 22 | 20 20 2e 2e 20 7e 20 22 | "-SP" "|  .. ~ "|
|00000430| 20 22 53 50 20 2e 2e 20 | 7e 22 20 22 43 2d 3f 22 | "SP .. |~" "C-?"|
|00000440| 20 22 44 45 4c 22 20 22 | 43 2d 69 22 20 22 54 41 | "DEL" "|C-i" "TA|
|00000450| 42 22 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |B" re-se|arch-for|
|00000460| 77 61 72 64 20 22 5e 4c | 6f 63 61 6c 20 42 69 6e |ward "^L|ocal Bin|
|00000470| 64 69 6e 67 73 3a 22 20 | 2d 31 20 22 20 66 6f 72 |dings:" |-1 " for|
|00000480| 20 22 20 22 20 4d 6f 64 | 65 22 20 22 3f 3f 5c 6e | " " Mod|e" "??\n|
|00000490| 22 20 22 45 6d 61 63 73 | 20 63 6f 6d 6d 61 6e 64 |" "Emacs| command|
|000004a0| 20 73 75 6d 6d 61 72 79 | 2c 20 22 20 63 75 72 72 | summary|, " curr|
|000004b0| 65 6e 74 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 20 |ent-time|-string |
|000004c0| 30 20 31 30 20 22 2e 5c | 6e 22 20 32 20 62 65 67 |0 10 ".\|n" 2 beg|
|000004d0| 20 22 5e 24 22 20 64 6f | 75 62 6c 65 2d 63 6f 6c | "^$" do|uble-col|
|000004e0| 75 6d 6e 20 22 4d 61 6b | 69 6e 67 20 63 6f 6d 6d |umn "Mak|ing comm|
|000004f0| 61 6e 64 20 73 75 6d 6d | 61 72 79 2e 2e 2e 64 6f |and summ|ary...do|
|00000500| 6e 65 22 5d 20 35 20 28 | 23 24 20 2e 20 34 36 35 |ne"] 5 (|#$ . 465|
|00000510| 29 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |) nil]).|(defalia|
|00000520| 73 20 27 64 6f 75 62 6c | 65 2d 63 6f 6c 75 6d 6e |s 'doubl|e-column|
|00000530| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|00000540| c0 89 89 89 89 64 09 5a | 1a 1b 1c 1d 1e 06 1e 07 |.....d.Z|........|
|00000550| c8 0e 09 09 5c 22 89 13 | ca 58 84 6a 00 0b 54 cb |....\"..|.X.j..T.|
|00000560| a5 16 07 0e 09 62 88 8a | 0e 07 79 88 0e 07 0b 57 |.....b..|..y....W|
|00000570| 83 4e 00 0e 07 54 16 07 | 60 8a c0 7f 88 60 29 7b |.N...T..|`....`){|
|00000580| 89 15 5c 66 42 14 60 ca | 79 88 60 7c 88 82 2b 00 |..\fB.`.|y.`|..+.|
|00000590| 29 5c 66 9f 89 14 83 6a | 00 c0 7f 88 cc 6a 88 5c |)\f....j|.....j.\|
|000005a0| 66 40 63 88 ca 79 88 5c | 66 41 89 14 84 56 00 64 |f@c..y.\|fA...V.d|
|000005b0| 5c 6e 5a 62 2e 06 87 22 | 20 5b 6e 69 6c 20 65 6e |\nZb..."| [nil en|
|000005c0| 64 20 66 72 6f 6d 2d 65 | 6e 64 20 6e 6c 69 6e 65 |d from-e|nd nline|
|000005d0| 73 20 6c 69 6e 65 73 20 | 6c 69 6e 65 20 63 6e 74 |s lines |line cnt|
|000005e0| 20 68 61 6c 66 20 63 6f | 75 6e 74 2d 6c 69 6e 65 | half co|unt-line|
|000005f0| 73 20 73 74 61 72 74 20 | 31 20 32 20 34 31 5d 20 |s start |1 2 41] |
|00000600| 38 20 6e 69 6c 20 22 72 | 22 5d 29 0a             |8 nil "r|"]).    |
+--------+-------------------------+-------------------------+--------+--------+